home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / loanapp.exe / LOANF4.FRM < prev    next >
Text File  |  1993-07-22  |  9KB  |  293 lines
  1. VERSION 2.00
  2. Begin Form Form4 
  3.    BackColor       =   &H00808080&
  4.    ClientHeight    =   3660
  5.    ClientLeft      =   165
  6.    ClientTop       =   2100
  7.    ClientWidth     =   8880
  8.    ControlBox      =   0   'False
  9.    Height          =   4065
  10.    Left            =   105
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form4"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3660
  16.    ScaleWidth      =   8880
  17.    Top             =   1755
  18.    Width           =   9000
  19.    Begin CommandButton Command3 
  20.       Caption         =   "Cancel"
  21.       Height          =   285
  22.       Left            =   4995
  23.       TabIndex        =   13
  24.       Top             =   3150
  25.       Width           =   3000
  26.    End
  27.    Begin CommandButton Command1 
  28.       Caption         =   "OK"
  29.       Height          =   300
  30.       Left            =   885
  31.       TabIndex        =   12
  32.       Top             =   3150
  33.       Width           =   3000
  34.    End
  35.    Begin PictureBox Picture5 
  36.       Height          =   900
  37.       Left            =   3795
  38.       ScaleHeight     =   870
  39.       ScaleWidth      =   5010
  40.       TabIndex        =   14
  41.       Top             =   2010
  42.       Width           =   5040
  43.       Begin CheckBox Check1 
  44.          Caption         =   "Secondary Residence"
  45.          Height          =   225
  46.          Index           =   3
  47.          Left            =   1740
  48.          TabIndex        =   18
  49.          Top             =   555
  50.          Width           =   2190
  51.       End
  52.       Begin CheckBox Check1 
  53.          Caption         =   "Primary Residence"
  54.          Height          =   240
  55.          Index           =   2
  56.          Left            =   1740
  57.          TabIndex        =   17
  58.          Top             =   300
  59.          Width           =   1890
  60.       End
  61.       Begin CheckBox Check1 
  62.          Caption         =   "Investment"
  63.          Height          =   255
  64.          Index           =   1
  65.          Left            =   1740
  66.          TabIndex        =   16
  67.          Top             =   45
  68.          Width           =   1290
  69.       End
  70.       Begin Label Label5 
  71.          Caption         =   "Property will be:"
  72.          Height          =   210
  73.          Left            =   45
  74.          TabIndex        =   15
  75.          Top             =   45
  76.          Width           =   1455
  77.       End
  78.    End
  79.    Begin PictureBox Picture4 
  80.       Height          =   900
  81.       Left            =   1920
  82.       ScaleHeight     =   870
  83.       ScaleWidth      =   1770
  84.       TabIndex        =   3
  85.       Top             =   2010
  86.       Width           =   1800
  87.       Begin VBedit BEditF4 
  88.          CellHeight      =   480
  89.          CellWidth       =   360
  90.          CharSet         =   16652
  91.          CombBaseLine    =   390
  92.          CombEndHeight   =   120
  93.          CombEndMarker   =   0   'False
  94.          CombHeight      =   60
  95.          FontBold        =   -1  'True
  96.          FontItalic      =   0   'False
  97.          FontName        =   "MS Sans Serif"
  98.          FontSize        =   9.75
  99.          FontStrikethru  =   0   'False
  100.          FontUnderline   =   0   'False
  101.          Height          =   495
  102.          Index           =   4
  103.          InflateBottom   =   180
  104.          InflateLeft     =   180
  105.          InflateRight    =   180
  106.          InflateTop      =   240
  107.          Left            =   45
  108.          TabIndex        =   11
  109.          Top             =   330
  110.          Version         =   268435458
  111.          Width           =   1680
  112.       End
  113.       Begin Label Label4 
  114.          Caption         =   "Year Built:"
  115.          Height          =   225
  116.          Left            =   45
  117.          TabIndex        =   7
  118.          Top             =   45
  119.          Width           =   990
  120.       End
  121.    End
  122.    Begin PictureBox Picture3 
  123.       Height          =   900
  124.       Left            =   45
  125.       ScaleHeight     =   870
  126.       ScaleWidth      =   1770
  127.       TabIndex        =   2
  128.       Top             =   2010
  129.       Width           =   1800
  130.       Begin VBedit BEditF4 
  131.          CellHeight      =   480
  132.          CellWidth       =   360
  133.          CharSet         =   16652
  134.          CombBaseLine    =   390
  135.          CombEndHeight   =   120
  136.          CombEndMarker   =   0   'False
  137.          CombHeight      =   60
  138.          FontBold        =   -1  'True
  139.          FontItalic      =   0   'False
  140.          FontName        =   "MS Sans Serif"
  141.          FontSize        =   9.75
  142.          FontStrikethru  =   0   'False
  143.          FontUnderline   =   0   'False
  144.          Height          =   495
  145.          Index           =   3
  146.          InflateBottom   =   180
  147.          InflateLeft     =   180
  148.          InflateRight    =   180
  149.          InflateTop      =   240
  150.          Left            =   45
  151.          TabIndex        =   10
  152.          Top             =   330
  153.          Version         =   268435458
  154.          Width           =   1680
  155.       End
  156.       Begin Label Label3 
  157.          Caption         =   "Number of Units:"
  158.          Height          =   225
  159.          Left            =   45
  160.          TabIndex        =   6
  161.          Top             =   45
  162.          Width           =   1515
  163.       End
  164.    End
  165.    Begin PictureBox Picture2 
  166.       Height          =   900
  167.       Left            =   45
  168.       ScaleHeight     =   870
  169.       ScaleWidth      =   8760
  170.       TabIndex        =   1
  171.       Top             =   1035
  172.       Width           =   8790
  173.       Begin VBedit BEditF4 
  174.          CellHeight      =   480
  175.          CellWidth       =   360
  176.          CharSet         =   16651
  177.          CombBaseLine    =   390
  178.          CombEndHeight   =   120
  179.          CombEndMarker   =   0   'False
  180.          CombHeight      =   60
  181.          FontBold        =   -1  'True
  182.          FontItalic      =   0   'False
  183.          FontName        =   "MS Sans Serif"
  184.          FontSize        =   9.75
  185.          FontStrikethru  =   0   'False
  186.          FontUnderline   =   0   'False
  187.          Height          =   495
  188.          Index           =   2
  189.          InflateBottom   =   180
  190.          InflateLeft     =   180
  191.          InflateRight    =   180
  192.          InflateTop      =   240
  193.          Left            =   45
  194.          TabIndex        =   9
  195.          Top             =   330
  196.          Version         =   268435458
  197.          Width           =   8670
  198.       End
  199.       Begin Label Label2 
  200.          Caption         =   "Purpose of Loan:"
  201.          Height          =   225
  202.          Left            =   45
  203.          TabIndex        =   5
  204.          Top             =   45
  205.          Width           =   1575
  206.       End
  207.    End
  208.    Begin PictureBox Picture1 
  209.       Height          =   900
  210.       Left            =   45
  211.       ScaleHeight     =   870
  212.       ScaleWidth      =   8760
  213.       TabIndex        =   0
  214.       Top             =   60
  215.       Width           =   8790
  216.       Begin VBedit BEditF4 
  217.          CellHeight      =   480
  218.          CellWidth       =   360
  219.          CharSet         =   16651
  220.          CombBaseLine    =   390
  221.          CombEndHeight   =   120
  222.          CombEndMarker   =   0   'False
  223.          CombHeight      =   60
  224.          FontBold        =   -1  'True
  225.          FontItalic      =   0   'False
  226.          FontName        =   "MS Sans Serif"
  227.          FontSize        =   9.75
  228.          FontStrikethru  =   0   'False
  229.          FontUnderline   =   0   'False
  230.          Height          =   495
  231.          Index           =   1
  232.          InflateBottom   =   180
  233.          InflateLeft     =   180
  234.          InflateRight    =   180
  235.          InflateTop      =   240
  236.          Left            =   45
  237.          TabIndex        =   8
  238.          Top             =   330
  239.          Version         =   268435458
  240.          Width           =   8670
  241.       End
  242.       Begin Label Label1 
  243.          Caption         =   "Legal Description of Property:"
  244.          Height          =   255
  245.          Left            =   45
  246.          TabIndex        =   4
  247.          Top             =   45
  248.          Width           =   2580
  249.       End
  250.    End
  251. End
  252.  
  253. Sub Check1_Click (Index As Integer)
  254.     If Form4.Visible = True Then
  255.         If Form4.Check1(Index).Value = 1 Then
  256.             For i = 1 To 3
  257.                 If i <> Index Then
  258.                     Form4.Check1(i).Value = 0
  259.                 End If
  260.             Next i
  261.         End If
  262.     End If
  263. End Sub
  264.  
  265. Sub Command1_Click ()
  266.     MainRec.C.C1 = Form4.BEditF4(1).Text
  267.     MainRec.C.C2 = Form4.BEditF4(2).Text
  268.     MainRec.C.C3 = Form4.BEditF4(3).Text
  269.     MainRec.C.C4 = Form4.BEditF4(4).Text
  270.     For i = 1 To 3
  271.         If Form4.Check1(i).Value = 1 Then
  272.             MainRec.C.CC1 = i
  273.             MainRec.C.C5 = Form4.Check1(i).Caption
  274.             Exit For
  275.         Else
  276.             MainRec.C.CC1 = 0
  277.             MainRec.C.C5 = ""
  278.         End If
  279.     Next i
  280.     UpdateLabelC
  281.     Form4.Hide
  282. End Sub
  283.  
  284. Sub Command3_Click ()
  285.     Form4.Hide
  286. End Sub
  287.  
  288. Sub Form_Load ()
  289.     Form4.Left = 300
  290.     Form4.Top = (Screen.Height - Form4.Height) / 2
  291. End Sub
  292.  
  293.